﻿Imports VN.INS.DL.DALC

Public Class FormatoBC

    Public Function CabeceraFormato5(ByVal strPPER As String, ByVal strPeriodo As String, ByVal strAno As String) As DataTable
        Dim objDA As FormatoDA
        Dim objDt As DataTable
        Try
            objDA = New FormatoDA
            objDt = New DataTable
            objDt = objDA.CabeceraFormato5(strPPER, strPeriodo, strAno)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function DetalleFormato5(ByVal strPPER As String, ByVal strPeriodo As String, ByVal strAno As String) As DataTable
        Dim objDA As FormatoDA
        Dim objDt As DataTable
        Try
            objDA = New FormatoDA
            objDt = New DataTable
            objDt = objDA.DetalleFormato5(strPPER, strPeriodo, strAno)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    Public Function DetalleFormato6(ByVal strPeriodo As String) As DataTable
        Dim objDA As FormatoDA
        Dim objDt As DataTable
        Try
            objDA = New FormatoDA
            objDt = New DataTable
            objDt = objDA.DetalleFormato6(strPeriodo)
            Return objDt
        Catch ex As Exception
            Throw ex
        End Try
    End Function

End Class